home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / you-075a.lha / you-075a / initelv.c < prev    next >
C/C++ Source or Header  |  1992-06-18  |  602b  |  25 lines

  1. /* ******************************************************************** */
  2. /* init_elvira.c     Copyright (C) Codemist and University of Bath 1989 */
  3. /*                                                                      */
  4. /* Interpreter elvira.                                            */
  5. /* ******************************************************************** */
  6.  
  7. /*
  8.  * Change Log:
  9.  *   Version 1, August 1990
  10.  */
  11.  
  12. #include "defs.h"
  13. #include "structs.h"
  14.  
  15. /* No Elvira as yet... */
  16.  
  17. /* LispObject dlp; */
  18.  
  19. void initialise_elvira_modules(LispObject *stacktop) 
  20. {
  21.   extern LispObject dp;
  22.   add_root(&dp);
  23. }
  24.  
  25.